<%@ Page Language="VB" %>
<%@ Import Namespace="System.IO" %>

<%
Dim strFilePath As String
strFilePath = Server.MapPath(Request.URLReferrer.AbsolutePath)
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title><% = strFilePath %></title>
<style type="text/css">
body {font-family:Tahoma,Arial,sans-serif; font-size:10pt}
input {font-family:Tahoma,Arial,sans-serif; font-size:9pt}
.heading {font-family:Tahoma,Arial,sans-serif; font-size:14pt; font-weight:bold}
.subhead {font-family:Tahoma,Arial,sans-serif; font-size:12pt; font-weight:bold; padding-bottom:5px}
.cite {font-family:Tahoma,Arial,sans-serif; font-size:8pt}
</style>
</head>
<body bgcolor="#ffffff">
<span class="heading"><% = strFilePath %></span><hr />
<!--------------------------------------------------------------------------->

<XMP>
<%
If strFilePath <> "" Then
   Dim objSR As StreamReader = File.OpenText(strFilePath)
   Response.Write(objSR.ReadToEnd())
   objSR.Close
   objSR = Nothing
End If
%>
</XMP>

<!--------------------------------------------------------------------------->
<hr /><span class="cite">&copy;2001 <a class="cite" href="http://www.wrox.com/">Wrox Press</a> -
<a class="cite" href="http://www.wrox.com/Books/Book_Details.asp?isbn=1861004885">Professional ASP.NET</a> (ISBN: 1-861004-88-5)</span>
</body>
</html>
